home *** CD-ROM | disk | FTP | other *** search
/ Pascal Super Library / Pascal Super Library (CW International)(1997).bin / DELPHI32 / SYS_TOOL / MULTI020 / MPTEST1.PAS < prev    next >
Pascal/Delphi Source File  |  1993-09-07  |  257b  |  17 lines
  1. uses mpipes, mpfile;
  2.  
  3. var
  4.   t : pPipe;
  5.   s : string;
  6.  
  7. begin
  8.   new(t,init(2048));
  9.   AttachFileInTask('c:\autoexec.bat',t);
  10.   t^.NewOutputTask;
  11.   repeat
  12.     if t^.ReadLn(s) then break;
  13.     writeln(s);
  14.   until false;
  15.   writeln('--EOF--');
  16. end.
  17.